home *** CD-ROM | disk | FTP | other *** search
- /*
- ** $VER: ShowREXXCommands.rexx (23 Mar 1996) **
- **
- ** © 1996 Kay Drangmeister
- **
- **
- ** PROGRAMNAME:
- ** ShowREXXCommands
- **
- ** FUNCTION:
- ** Displays all IFFMaster REXX commands.
- **
- ** $HISTORY:
- **
- ** 23 Mar 1996 : 1.0 : initial release
- */
-
-
- PortName = 'IFFMASTER.1' /* portname, usually IFFMASTER.1 */
- LF = '0a'x /* linefeed */
- iffmpath = 'IFFMaster' /* change this to your path */
-
- ADDRESS VALUE PortName
-
- IFFMACTIVE=1
- IF ~SHOW('Ports',PortName) THEN DO
- IFFMACTIVE=0 /* indicate that we did start IFFMaster through the script */
- ADDRESS 'COMMAND' 'Run >NIL: 'iffmpath
- ADDRESS 'COMMAND' 'WaitForPort '||PortName
- IF ~SHOW('Ports',PortName) THEN EXIT 10
- END
-
-
- temp="env:iffmasterrexxvar"
- 'help 'temp
- ADDRESS 'COMMAND' 'type 'temp
- ADDRESS 'COMMAND' 'delete >NIL: 'temp
-
-
- IF IFFMACTIVE=0 THEN DO
- ADDRESS Value portname
- 'quit' /* we started IFFMaster ourselves, so close it */
- END
-
- EXIT(0)
-
-